home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / product.arc / MACRO61.LSP < prev    next >
Text File  |  1986-09-23  |  811b  |  24 lines
  1. (Defun C:Ellipse ()
  2.        (Setvar "Cmdecho" 0)
  3.        (Setq A (Getint "\nNumber of sides: "))
  4.        (Setq P1 (Getpoint "\nCenter point: "))
  5.        (Setq B (Getdist P1 "\nMajor radius: "))
  6.        (Setq C (Getdist P1 "\nMinor radius: "))
  7.        (Setq A1 (Getangle P1 "\nRotation angle: "))
  8.        (Setq D (* (/ 360.0 A) (? Pi 180.0)))
  9.        (Setq X1 (Car P1))
  10.        (Setq Y1 (Cadr P1))
  11.        (Setq A2 0.0)
  12.        (Command "Pline")
  13.        (Repeat A
  14.                (Setq X2 (+ X1 (* B (Cos A2))))
  15.                (Setq Y2 (+ Y1 (* C (Sin A2))))
  16.                (Setq E (Distance P1 (List X2 Y2)))
  17.                (Setq A3 (Angle P1 (List X2 Y2)))
  18.                (Setq P2 (Polar P1 (+ A3 A1) E))
  19.                (Command P2)
  20.                (Setq A2 (+ A2 D))
  21.        )
  22.        (Command "C")
  23. )
  24.